home *** CD-ROM | disk | FTP | other *** search
/ PC Play 129 / pc play 129.iso / Demo / man2 / man2.exe / data / scripts / ltransport_scripts.lua < prev    next >
Encoding:
Text File  |  2006-08-31  |  8.3 KB  |  224 lines
  1.  
  2. function units_ltransport_setup()
  3.     units_setup(3,false,ENET_EFFECT_PS_SETUPSMOKE_LARGE,ENET_EFFECT_GEOMETRY_LANDTRANSPORTSHADOW)
  4. end
  5.  
  6. function units_ltransport_resetup()
  7.     units_setup(3,false,nil,ENET_EFFECT_GEOMETRY_LANDTRANSPORTSHADOW)
  8. end
  9.  
  10. function units_ltransport_select()
  11.     units_select(22)
  12. end
  13.  
  14. function units_ltransport_unselect()
  15.     units_unselect()
  16. end
  17.  
  18. function units_ltransport_selectenemy()
  19.     uniGetExecutor():addSimpleEffect(ENET_EFFECT_SELECTEDGEOMETRY_ENEMY)
  20. end
  21.  
  22. function units_ltransport_damaged()
  23.     uniGetExecutor():applyDamage(uniGetLife())
  24. end
  25.  
  26. function units_ltransport_highlight()
  27.     uniGetExecutor():addEffectWithRadius(ENET_EFFECT_GEOMETRY_HIGHLIGHT,15)
  28. end
  29.  
  30. function units_ltransport_explode()
  31.     units_explode_big1()
  32. end
  33.  
  34. function units_ltransport_move()
  35.     local unit = uniGetExecutor()
  36.     local sound = unit:play3DSound("landtransport_move.wav",1)
  37.     local steps = {}
  38.     local i = 0;
  39.     for i = 0,1 do
  40.         steps[i] = unit:getBone(ENBT_STEPEMITTER,i):addSimpleEffect(ENET_EFFECT_DYNAMICGEOMETRY_LIGHTTANKSTEPSEMITTER)
  41.         steps[i+2] = unit:getBone(ENBT_STEPEMITTER,i):addSimpleEffect(ENET_EFFECT_PS_NEWTRACKSMOKE2)
  42.     end
  43.     waitDeath(unit:addRotationEffect(ENET_EFFECT_ROTATE_UNIT,MATH_PI * 1.0))
  44.     waitDeath(unit:addMoveEffect(ENET_EFFECT_MOVE_LINEAR,100))
  45.     sound:destroy()
  46.     unit:play3DSound("landtransport_stop.wav",0):destroy()
  47.     for i = 0,1 do
  48.         if(unit:getScale() < 1.0) then 
  49.             steps[i]:destroy()
  50.         else
  51.             steps[i]:setTransformOwner()
  52.             steps[i]:suspendedDestroy(70)
  53.         end
  54.         steps[i+2]:suspendedDestroy(1.0)
  55.     end
  56. end
  57.  
  58. function units_ltransport_fire()
  59. end
  60.  
  61. function units_ltransport_load()
  62.     local unit = uniGetExecutor()
  63.     local cargo = uniGetTarget()
  64.     units_waitCommandByUID(cargo,unit:getCurrentCommandUID() - 1)
  65.     waitDeath(unit:parabolicTargetting(cargo))
  66.     unit:play3DSound("Cargo_open2.wav",0):destroy()
  67.     unit:addAnimationToQueue(ENAT_PREPAREFORFIRE1,1)
  68.     unit:addAnimationToQueue(ENAT_FIREPOSITION1,MATH_INFINITY)
  69.     unit:addAnimationToQueue(ENAT_AFTERFIRE1,1)
  70.     cargo:setVisibility(true,false)
  71.     uniSetPosition(unit:getBone(ENBT_FIRE1):getWorldPosition())
  72.     units_load_shrink(cargo)
  73.     local ground = units_addGround(unit,ENET_LTRANSPORT_GROUND)
  74.     local movecmd_uid = cargo:executeCommand(ENC_MOVE,true)
  75.     cargo:terminateCommand()
  76.     cargo:executeCommand(ENC_INSIDE,true)
  77.     while(cargo:getCurrentCommandUID() == movecmd_uid) do pause() end
  78.     cargo:setTransformOwner(units_findfreefirespot(unit,1))
  79.     unit:setCurrentAnimationRepeatCount(0)
  80.     cargo:setVisibility(false,false)
  81.     cargo:terminateCommand()
  82. end
  83.  
  84. function units_ltransport_unload()
  85.     local unit = uniGetExecutor()
  86.     local cargo = uniGetTarget()
  87.     units_waitCommandByUID(cargo,unit:getCurrentCommandUID() - 1)
  88.     local pos = uniGetPosition()
  89.     waitDeath(unit:parabolicTargetting(pos))
  90.     unit:addAnimationToQueue(ENAT_PREPAREFORFIRE1,1)
  91.     unit:addAnimationToQueue(ENAT_FIREPOSITION1,MATH_INFINITY)
  92.     unit:addAnimationToQueue(ENAT_AFTERFIRE1,1)
  93.     local ground = units_addGround(unit,ENET_LTRANSPORT_GROUND)
  94.     cargo:setLocalOrientation(0,1,0,0,0,-1)
  95.     cargo:setTransformOwner()
  96.     cargo:setScale(0.4,0.4,0.4)
  97.     cargo:setVisibility(true,false)
  98.     local movecmd_uid = cargo:executeCommand(ENC_MOVE,true)
  99.     cargo:terminateCommand()
  100.     cargo:executeCommand(ENC_INSIDE,true)
  101.     while(cargo:getCurrentCommandUID() == movecmd_uid) do pause() end
  102.     units_unload_growth(cargo)
  103.     cargo:setVisibility(true,true)
  104.     unit:setCurrentAnimationRepeatCount(0)
  105.     cargo:terminateCommand()
  106. end
  107.  
  108. function units_ltransport_transfer()
  109.     local unit = uniGetExecutor()
  110.     local cargo = uniGetTarget()
  111.     units_waitCommandByUID(cargo,unit:getCurrentCommandUID() - 1)
  112.     local from = cargo:getTransformOwner():getTransformOwner()
  113.     local fromType = from:getEffectType()
  114.     units_waitCommandByUID(from,unit:getCurrentCommandUID() - 2)    
  115.     if(fromType == ENET_UNIT_PLATFORM) then
  116.         waitDeath(from:parabolicTargetting(unit))
  117.         from:addAnimationToQueue(ENAT_IDLETIMEOUT1,1)
  118.         from:addAnimationToQueue(ENAT_FIREPOSITION1,MATH_INFINITY)
  119.         from:addAnimationToQueue(ENAT_IDLETIMEOUT2,1)
  120.         local ground = units_addGround(from,ENET_PLATFORM_GROUND)
  121.         cargo:setTransformOwner()
  122.         units_ltransport_load()
  123.         from:setCurrentAnimationRepeatCount(0)
  124.         from:terminateCommand()
  125.     elseif(fromType == ENET_UNIT_LANDTRANSPORT or fromType == ENET_UNIT_SEATRANSPORT) then
  126.         waitDeath(from:parabolicTargetting(unit))
  127.         from:addAnimationToQueue(ENAT_PREPAREFORFIRE1,1)
  128.         from:addAnimationToQueue(ENAT_FIREPOSITION1,MATH_INFINITY)
  129.         from:addAnimationToQueue(ENAT_AFTERFIRE1,1)
  130.         local g_type = ENET_STRANSPORT_GROUND
  131.         if(fromType == ENET_UNIT_LANDTRANSPORT) then g_type = ENET_LTRANSPORT_GROUND end
  132.         local ground = units_addGround(from,g_type)
  133.         cargo:setLocalOrientation(0,1,0,0,0,-1)
  134.         cargo:setTransformOwner()
  135.         cargo:setScale(0.4,0.4,0.4)
  136.         units_ltransport_load()
  137.         from:setCurrentAnimationRepeatCount(0)
  138.         from:terminateCommand()
  139.     elseif(fromType == ENET_UNIT_TRANSCHOPPER_HUMAN) then
  140.         waitDeath(from:parabolicTargetting(unit))
  141.         cargo:setTransformOwner()
  142.         units_ltransport_load()
  143.         from:setCurrentAnimationRepeatCount(0)
  144.         from:terminateCommand()
  145.     else
  146.         consoleWrite("attempt to reload from unknown transport type!!!")
  147.     end
  148. end
  149.  
  150.  
  151. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_MOVE,"units_ltransport_move")
  152. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_FIRE1,"units_ltransport_fire")
  153. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_FIRE2,"units_ltransport_fire")
  154. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_SELECT,"units_ltransport_select")
  155. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_SELECTENEMY,"units_ltransport_selectenemy")
  156. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_UNSELECT,"units_ltransport_unselect")
  157. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_SETUP,"units_ltransport_setup")
  158. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_RESETUP,"units_ltransport_resetup")
  159. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_DAMAGED,"units_ltransport_damaged")
  160. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_EXPLODE,"units_ltransport_explode")
  161. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_HIGHLIGHT,"units_ltransport_highlight")
  162. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_TRANSFER,"units_ltransport_transfer")
  163. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_LOAD,"units_ltransport_load")
  164. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_UNLOAD,"units_ltransport_unload")
  165. registerCommand(ENSCRIPTSET_LANDTRANSPORT,ENC_INSIDE,"units_inside")
  166.  
  167. -- make description of unit
  168. desc = getEffectDescriptionP(ENET_UNIT_LANDTRANSPORT)
  169. desc.ClassID = ENCLASS_MESHINSTANCE
  170. desc.EffectClassType = ENECT_GEOMETRY
  171. desc.FileName = "landtransport.rmd"
  172. desc.ScriptSet = ENSCRIPTSET_LANDTRANSPORT
  173. desc.MoveType = ENMOVE_GROUNDORIENTED
  174. desc.RenderType = ENRENDERTYPE_GEOMETRY
  175. desc.Material = ENMAT_RIGIDSKINNEDMESH
  176. desc.MaterialColors = units_materialcolors_human
  177. desc.isPlacesVisible = false
  178.  
  179. -- shadow
  180. desc = getEffectDescriptionP(ENET_EFFECT_GEOMETRY_LANDTRANSPORTSHADOW)
  181. desc.ClassID = ENCLASS_MESHINSTANCE
  182. desc.EffectClassType = ENECT_GEOMETRY
  183. desc.FileName = "landtransport_shadow.rmd"
  184. desc.RenderType = ENRENDERTYPE_SHADOW
  185. desc.Material = ENMAT_SHADOW
  186. desc.MaterialColors = units_materialcolors_shadow
  187.  
  188. -- register new unit to logic
  189. unitDesc = logic_getUnitDescP(6)
  190. unitDesc.group = 0
  191. unitDesc.order = 10
  192. unitDesc.unit_res_id = ENET_UNIT_LANDTRANSPORT
  193. unitDesc.unit_icon_id = "Landtransport_h_small_normal.dds"
  194. unitDesc.active_id = "Landtransport_h_small_active.dds"
  195. unitDesc.pressed_id = "Landtransport_h_small_pressed.dds"
  196. unitDesc.big_icon_id = "Landtransport_h_big_normal.dds"
  197. unitDesc.small_icon_id = "Landtransport_u_stats.dds"
  198. unitDesc.HP = 3
  199. unitDesc.MP = 50
  200. unitDesc.WR = 0
  201. unitDesc.min_WR = 0
  202. unitDesc.WD = 0
  203. unitDesc.WR2 = 0
  204. unitDesc.min_WR2 = 0
  205. unitDesc.WD2 = 0
  206. unitDesc.ability = 1
  207. unitDesc.transport = 2
  208. unitDesc.value = 2
  209. unitDesc.race = 0
  210. unitDesc.fire_pause = 0.0
  211. unitDesc.move_pause = 6.0
  212. unitDesc.unit_info_scale = 0.06
  213. unitDesc.scn_name = "LTRANSP"
  214.  
  215.  
  216. ------------------------------------------------------------------------------------------
  217. ------------------------------------------------------------------------------------------
  218. ------------------------------------------------------------------------------------------
  219. desc = getEffectDescription(ENET_EFFECT_GEOMETRY_VEGETATION_FURPALM)
  220. desc.FileName = "ltransport_ground.smd"
  221. desc.effectUsageType = ENEUT_GENERIC
  222. desc.Geometry.isCollisionable = true
  223. changeEffect(ENET_LTRANSPORT_GROUND,desc)
  224.